########################################################
# Script: Het donorregister: wie doet mee en wie niet? #
# Floris Peters & Hans Schmeets                        #
# Bevolkingstrends                                     #                          
########################################################


################
# Introduction #
################

# This file provides the syntax used to create all the tables and figures in the paper. 
# The dataset contains sensitive, micro level information. As such, for privacy reasons the data is only available to individuals employed at or affiliated to Statistics Netherlands. 
# The dataset can be found at the following location on the network of Statistics Netherlands: \\cbsp.nl\Productie\Projecten\SAL\209253UM_FP_SEC1\Werk\Floris\PhD\BT_organ_donation 

#######################################################################################################################
#######################################################################################################################

#############
# Variables #
#############

# REGISTRATIE
# (Donor registratie categorie)
# [1] Toestemming;
# [2] Toestemming met donatiebeperking;
# [3] Geen toestemming;
# [4] Nabestaanden beslissen;
# [5] Aangewezen persoon beslist;
# [6] Niet in donorregister

# DONOR
# (Registratie 'toestemming' of 'toestemming met donatiebeperking')
# [0] Nee; 
# [1] Ja

# GESLACHT
# [1] Man; 
# [2] Vrouw

# LEEFTIJD 
# (Leeftijd in jaren) 

# LEEFTIJDCAT 
# (Leeftijd in categorie�n) 
# [1] 12-20 jaar; 
# [2] 21-30 jaar; 
# [3] 31-40 jaar; 
# [4] 41-50 jaar; 
# [5] 51-60 jaar; 
# [6] 61-70 jaar; 
# [7] 71-80 jaar; 
# [8] 71+ jaar

# OPLEIDINGSNIVEAU 
# (Hoogst behaalde opleidingsniveau) 
# [1] Laag; 
# [2] Middelbaar;
# [3] Hoog

# HERKOMST 
# (Migratieachtergrond en herkomstland) 
# [1] Autochtoon;
# [2] Marokko;
# [3] Turkije;
# [4] Suriname;
# [5] Nederlandse Antillen & Aruba;
# [6] Overige niet-westerse landen;
# [7] Overige westerse landen

# HUISHOUDSS 
# (Huishoudsamenstelling) 
# [1] Eenpersoonshuishouden;
# [2] Paar zonder kinderen;
# [3] Paar met kinderen;
# [4] Eenouderhuishouden;
# [5] Overig meerpersoonshuishouden;
# [6] Institutionele bevolking;
# [7] onbekend

#######################################################################################################################
#######################################################################################################################

#laad dataset
data_donor <- read.csv(file.choose(),header=T,sep=";")


###############     
# Tabel 3.1.1 #
###############   

#beschrijvende statistieken
table(data_donor$REGISTRATIE)
prop.table(data_donor$REGISTRATIE)


###############     
# Tabel 3.1.2 #
###############  

#beschrijvende statistieken
prop.table(table(data_donor$GESLACHT,data_donor$REGISTRATIE),1)
prop.table(table(data_donor$LEEFTIJDCAT,data_donor$REGISTRATIE),1)
prop.table(table(data_donor$OPLEIDINGSNIVEAU,data_donor$REGISTRATIE),1)
prop.table(table(data_donor$HERKOMST,data_donor$REGISTRATIE),1)
prop.table(table(data_donor$GENERATIE,data_donor$REGISTRATIE),1)
prop.table(table(data_donor$HUISHOUDSS,data_donor$REGISTRATIE),1)

